home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
Invisible Universe ƒ
/
TOCM.DIR
/
00001_Script_1
next >
Wrap
Text File
|
1995-11-16
|
719b
|
41 lines
on exitFrame
global gMovieTimeMax
if the movieTime of sprite 48 < gMovieTimeMax then
go to the frame
exit
else
global gMovieTimeList, gMovieTimeIndex
updateStage
set gMovieTimeIndex = gMovieTimeIndex + 1
updateStage
set gMovieTimeMax = getAt(gMovieTimeList, gMovieTimeIndex)
updateStage
if listP(gMovieTimeMax) then
updateStage
do getAt(gMovieTimeMax, 2)
updateStage
set gMovieTimeMax = getAt(gMovieTimeMax, 1)
updateStage
end if
go to the frame + 1
exit
end if
end
on idle
updateStage
end idle
on enterFrame
updateStage
end enterFrame